home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
prog
/
atari
/
c
/
zm16src
/
util.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-05-18
|
5KB
|
234 lines
/*
* Utilities Module
*
* Jwahar Bammi
* usenet: mandrill!bammi@{decvax,sun}.UUCP
* csnet: bammi@mandrill.ces.CWRU.edu
* arpa: bammi@mandrill.ces.CWRU.edu
* CompuServe: 71515,155
*/
#include "config.h"
#include "zmdm.h"
#ifndef Vsync /* Atari forgot these in osbind.h */
#define Vsync() xbios(37)
#endif
#define GOTO(r,c) EscSeq('Y');Bconout(2, r+040);Bconout(2, c+040)
/* External Variables */
long pr_time = 0L; /* Present time (200 Hz) */
#ifndef STANDALONE
#ifndef REMOTE
extern int *aline_addr; /* Ptr to base of Aline variables */
extern long *ms_ptr; /* pointer to my screen memory aligned to a 256
byte boundary */
/* Globals */
static char *hs_ptr; /* pointer to his screen memory */
static int x_saved, y_saved; /* Saved cursor position */
#endif
#endif
static long *hz_200 = (long *)0x000004ba; /* Yes the Hitch Hikers */
/* Guide is wrong!! */
/*
* rd_time() - read the value of the systems 200 Hz counter
* must be called in Super Mode else you get
* what you deserve - MUSHROOMS!!
*/
void rd_time()
{
pr_time = *hz_200;
}
#ifndef STANDALONE
/*
* my_screen() - Start using my screen memory
* for all output.
*
*/
void my_screen()
{
#ifndef REMOTE
/* The cursor position has been saved prior to calling this routine */
x_saved = aline_addr[-14];
y_saved = aline_addr[-13];
/* save his screen memory pointer */
hs_ptr = (char *)Logbase();
/* switch to my display memory */
Setscreen(ms_ptr, ms_ptr, -1);
#else
wr_modem("\r\n\n");
#endif
}
void his_screen()
{
#ifndef REMOTE
/* switch to his Screen memory, wait for a Vblank, so
* that the Logical Loc == Physical Loc, then pop saved
* cursor */
Setscreen(hs_ptr, hs_ptr, -1);
Vsync();
Vsync(); /* starts happening at the last one */
GOTO(y_saved, x_saved);
#else
wr_modem("\r\n\n");
#endif
}
/*
* hit_key() - wait for the user to hit a key
*
*/
void hit_key()
{
#ifndef REMOTE
Bconws("\r\n\033pHit Any Key To Continue .....\033q");
Bconin(2);
Bconws("\r\n");
#else
wr_modem("\r\nHit Any Key To Continue .....");
Bconin(1);
wr_modem("\r\n");
#endif
}
#endif /* STANDALONE */
/*
* find the size of a file given its name
*/
long filesize(name)
register char *name;
{
extern struct stat statbuf;
if(Fsfirst(name,(int)(0x01 | 0x020)) != 0)
{
return 0L;
}
return statbuf.st_size;
}
/*
* Write a string to console
*/
Bconws(s)
register char *s;
{
while(*s)
Bconout(2, *s++);
}
#ifndef STANDALONE
#ifndef REMOTE
#ifndef MANX
#ifndef MWC
/* **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** */
/* */
/* ALCYON C dependant, this routine must return the base address of */
/* of the linea variable block */
/* */
/* **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** */
/*
* return the base address of the line A variables
*/
int *aaddress()
{
asm("dc.w $A000"); /* Line A trap - 0000 is init aline */
/* d0 and a0 now contain the address */
/* so we can just return and the result
* will be valid
*/
}
/*
* Make hi rez screen bios handle 50 lines of 8x8 characters
*
* Adapted to C use from origonal asm posting
*
*/
hi50()
{
/* Switch to 50 lines display */
asm(".dc.w $a000"); /* get the important pointers */
asm("move.l 04(a1),a1"); /* a1 -> 8x8 font header */
asm("move.l 72(a1),-$0A(a0)"); /* v_off_ad <- 8x8 offset table addr */
asm("move.l 76(a1),-$16(a0)"); /* v_fnt_ad <- 8x8 font data addr */
asm("move.w #008,-$2E(a0)"); /* v_cel_ht <- 8 8x8 cell height */
asm("move.w #049,-$2A(a0)"); /* v_cel_my <- 49 maximum cell "Y" */
asm("move.w #640,-$28(a0)"); /* v_cel_wr <- 640 offset to cell Y+1 */
}
/*
* Make hi rez screen bios handle 25 lines of 8x16 characters
*
*/
hi25()
{
/* Switch to 25 lines display */
asm(".dc.w $a000"); /* get the important pointers */
asm("move.l 08(a1),a1"); /* a1 -> 8x16 font header */
asm("move.l 72(a1),-$0A(a0)"); /* v_off_ad <- 8x16 offset table addr */
asm("move.l 76(a1),-$16(a0)"); /* v_fnt_ad <- 8x16 font data addr */
asm("move.w #0016,-$2E(a0)"); /* v_cel_ht <- 16 8x16 cell height */
asm("move.w #0024,-$2A(a0)"); /* v_cel_my <- 24 maximum cell "Y" */
asm("move.w #1280,-$28(a0)"); /* v_cel_wr <- 1280 vertical byte offset */
}
#else
/* **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** */
/* */
/* MWC dependant, this routine must return the base address of */
/* of the linea variable block */
/* */
/* **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** **WARNING** */
#include <linea.h>
/*
* return the base address of the line A variables
*/
int *aaddress()
{
linea0(); /* Init LineA - dumps returned values into la_init */
return (int *)(la_init.li_a0); /* Return address of Parameter Block */
}
/* Mark Williams C */
/* See file hi5025.s */
/* for functions hi50() */
/* and hi25() */
#endif /* MWC */
#endif /* MANX */
#endif /* REMOTE */
#endif /* STANDALONE */
/* -eof- */